<text>Date: 04/10/96-05:16PMFrom: Ruskin[] Ruskin.To: Ruskin[]Subject: Recompiling AppleScript Scripts in FX窶｢MailerNOTE FOR FX窶｢MAILER USERS:If you are continually being asked to "locate" the FX窶｢Engine, FX窶｢Packager or HyperCard while using the FX窶｢Mailer stack, you may need to recompile the AppleScript scripts in the FX窶｢Mailer Stack. To display the AppleScript scripts (which have been placed in buttons), hold down the "option" key and click on the "FX" label in the upper left corner of the current window. Note, both the Reader and Compose cards contain AppleScript scripts in buttons that may have to be recompiled so be sure to "option-click" on the "FX" label in both windows. Display and Save the scripts that are attached to each of the AppleScript based buttons. Once you've recompiled the scripts, AppleScript will no longer ask you to locate the engine or packager. You may re-hide the AppleScript buttons by "option-clicking" on the "FX" labels.</text>
</content>
<name></name>
<script></script>
</card>
card_6042.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on closeFieldput line 1 of me into meend closeField</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>61</left>
<top>53</top>
<right>320</right>
<bottom>70</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>subjectFld</name>
<script>on closeFieldput line 1 of me into meend closeField</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>5</left>
<top>80</top>
<right>410</right>
<bottom>244</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>messageFld</name>
<script></script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>354</left>
<top>247</top>
<right>410</right>
<bottom>260</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Send Now!</name>
<script>on mouseUpif cd field sendtofld is not empty thenset cursor to busyset the hilite of me to truesendMessage -- see card script for this handlerset the hilite of me to falseelseanswer "Sorry, FX窶｢Mailer cannot send your message. Please enter an address in the 窶彜end To:窶."end ifend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>325</left>
<top>56</top>
<right>410</right>
<bottom>69</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Clear Compose</name>
<script>on mouseUpput empty into cd fld sendtoFldput empty into cd fld subjectFldput empty into cd fld messageFldend mouseUp</script>
<script>on mouseUpif the optionkey is down thenif the visible of cd button asSendFile is true thenset the visible of cd button asSendFile to falseelseset the visible of cd button asSendFile to trueend ifend ifend mouseUp</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>393</left>
<top>1</top>
<right>412</right>
<bottom>19</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26635</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the visible of cd button coverUp to trueset the visible of cd fld composeHelp to trueend mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>1</left>
<top>1</top>
<right>414</right>
<bottom>262</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>coverUp</name>
<script>on mouseUpsend mouseUp to cd fld "composeHelp"end mouseUp</script>
</part>
<part>
<id>23</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>8</left>
<top>72</top>
<right>406</right>
<bottom>240</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>composeHelp</name>
<script>on mouseUpset the visible of cd button coverUp to falseset the visible of me to falseend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>23</id>
<text><span class="style2">sing the FX窶｢Compose Window</span><span class="style1">To send a message, enter the destination address (or addresses) in the 窶彜end To:窶 field, a brief title in the 窶彜ubject窶 field and the text of your message in the primary text field after that. When you're ready to send your message, simply click on the 窶彜end Now!窶 button.Remember to use valid FX窶｢Packager addresses in the 窶彜end To:窶 field like 窶廱ulie[Marketing]窶 or 窶彗Mac.bigCorp.Com窶.To return to reading your mail click on the 窶彝eader窶ｦ窶 button.</span></text>
</content>
<name>composeCard</name>
<script>-- FX窶｢Mailer - Compose Card Script-- Last Modified: 8/14/95 by MMM-- A freeware script provided by the Ruskin Group, Inc.-- This stack may be used for any non-commercial purposes.-- This handler turns the message into a temporary file and then-- calls an AppleScript handler to send that file via an FX窶｢Packageron sendMessageglobal FXtempfileNameset the cursor to busymakeMailFile -- take the message and save it in a temporary file-- We need to convert the address line into a canonical list-- for AppleScript. The engine is expecting a list of strings that-- look like: "addr1","addr2","addr3"-- Note each item is seperated by a comma and enclosed in quotes!put quote&(item 1 of cd fld sendTofld) into canonicalAddrput (number of items of cd fld sendToFld) into numOfAddrsif numOfAddrs 竕･ 1 thenrepeat with itemCounter = 2 to (number of items of cd fld sendToFld)put quote&comma"e&(item itemCounter of cd fld sendToFld) after canonicalAddrend repeatend if-- Add the final quote...put quote after canonicalAddr-- Now we'll hand off to an AppleScript script to do the dirty work...put "sendMessage ""e&FXtempfileName"e&","& ﾂｬnumOfAddrs into sendParmglobal globalAddrput cd fld sendToFld into globalAddrsend sendParm to cd button "asSendFile"end sendMessage-- This handler creates the temporary file that contains-- the user's message in a canonical format. We'll then use-- File eXpress to send that file to its destination.on makeMailFileglobal FXstackVersion, FXuserATName, FXuserIPName, FXtempFileNameset the cursor to busyput getDriveName() into theDriveput theDrive&":Temporary Items:"&(the ticks)&".fxmsg" into tempFileNameopen file tempFileName-- Just in case we can't find "Temporary Items"...if the result is not empty thenput theDrive&":"&(the ticks)&".fxmsg" into tempFileNameanswer "Couldn窶冲 use 窶弋emporary Items窶 folder, please delete 窶.fxmsg窶 files at your convenience."open file tempFileNameend ifif the result is empty thenput buildDateTimeStamp() into dateAndTimewrite "[FX窶｢Mail-"&FXstackVersion&"|"&(the ticks)&"|"&(random(the ticks))&"]"&return to file tempFileNamewrite "Date: "&dateAndTime&return to file tempFileNameif (FXuserATName is empty) thenwrite "From: <No AppleTalk Address Available>"&return to file tempFileNameelsewrite "From: "&FXuserATName&return to file tempFileNameend ifif (FXuserIPName is empty) thenwrite " <No TCP/IP Address Available>"&return to file tempFileNameelsewrite " "&FXuserIPName&return to file tempFileNameend ifwrite "To: "&(cd fld sendtoFld)&return to file tempFileNamewrite "Subject: "&(cd fld subjectFld)&return to file tempFileNamewrite return to file tempFileNamewrite (cd fld messageFld) to file tempFileNameclose file tempFileNameif the hilite of card button "Keep Copy" is true thenkeepCopyOfMail dateAndTimeend ifelseanswer "Error with temp file: 窶"&the result&"窶 - message not sent."exit to hypercard -- abort now or face the consequences...end ifput tempFileName into FXtempFileName -- We'll want to delete this later...end makeMailFile-- If the user had checked the "Keep Copy" options, then this routine-- is called and will copy the message in the compose card to the-- "rawMessages" background. This keeps ups from actually having to-- use the packager to "send" a message to ourselves.on keepCopyOfMail dateAndTimeglobal FXstackVersion, FXuserATName, FXuserIPName, FXtempFileNameglobal FXcaptionsNeedUpdating-- Set FXcaptionsNeedUpdating to true so that when it is checked-- by the openCard handler of the Reader Card we update the captions list.-- We only need to do this as we're "sneaking" this message into the stack-- to save the time of actually sending it to ourselves.put true into FXcaptionsNeedUpdatingset the cursor to busylock screenlock messagesset the cursor to busy-- Build the rawCaption Itemput "窶｢"&dateAndTime into tempCaptionput " " after tempCaptionput char 1 to 25 of cd fld subjectFld after tempCaptionrepeat with i = (length of tempCaption) to 45put " " after tempCaptionend repeatif char 34 of cd fld subjectFld is not empty then put "窶ｦ" into char 45 of tempCaptionput "=>"&char 1 to 15 of cd fld sendtoFld after tempCaptionrepeat with i = (length of tempCaption) to 65put " " after tempCaptionend repeatput (the ticks) after tempCaption-- Build the rawBody Itemput "Date: "&(buildDateTimeStamp())&return into tempBodyif (FXuserATName is empty) thenput "From: <No AppleTalk Address Available>"&return after tempBodyelseput "From: "&FXuserATName&return after tempBodyend ifif (FXuserIPName is empty) thenput " <No TCP/IP Address Available>"&return after tempBodyelseput " "&FXuserIPName&return after tempBodyend ifput "To: "&(cd fld sendtoFld)&return after tempBodyput "Subject: "&(cd fld subjectFld)&return after tempBodyput return after tempBodyput (cd fld messageFld) after tempBody-- Now create "rawMessages" background card and 'keep copy' of message...push cardgo to last card of background rawmessagesdomenu "New Card"put tempCaption into field rawCaptionput tempBody into field rawBodypop cardend keepCopyOfMailon openCardglobal FXoriginalTextArrows-- We like textArrows off for the compose card,-- but save the old value to restore on close card...put the textArrows into FXoriginalTextArrowsset the textArrows to true-- Update the FX窶｢Mailer Menuset the enabled of menuItem "Read Messages" of menu "FX窶｢Mailer" to trueset the enabled of menuItem "Compose Message" of menu "FX窶｢Mailer" to falsesend mouseDown to cd field sendToFldend openCardon closeCardglobal FXoriginalTextArrows-- Restore the value of textArrows to what it was before openCardset the textArrows to FXoriginalTextArrowsend closeCard-- Allow the enter-key to act as the "Send Now!" button窶ｦon enterInfieldsend mouseUp to cd button "Send Now!"end enterInfield</script>
</card>
card_3051.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpif cd fld captions is not empty thengetMessageelseput empty into cd fld bodyanswer "Sorry, there are no messages to display窶ｦ"end ifend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>209</left>
<top>247</top>
<right>286</right>
<bottom>260</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Delete Message</name>
<script>-- FX窶｢Mailer - Delete Message Button Script-- Last Modified: 8/12/95 by MMM-- A freeware script provided by the Ruskin Group, Inc.on mouseUpif cd field captions is empty thenanswer "Sorry, I can't find anything to delete!"elseif the optionkey is down thenset the hilite of me to truelock screenlock messagesset the cursor to busyrepeat with i = 1 to the number of lines in cd field captionsset the cursor to busydeleteMessage -- see card script for this handlerend repeatset the hilite of me to falseelseset the cursor to watchdeleteMessage -- see card script for this handlerend ifend ifend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>5</left>
<top>105</top>
<right>410</right>
<bottom>244</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>body</name>
<script></script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>139</left>
<top>247</top>
<right>196</right>
<bottom>260</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Reply To窶ｦ</name>
<script>-- FX窶｢Mailer - Reply To Button Script-- Last Modified: 8/12/95 by MMM-- A freeware script provided by the Ruskin Group, Inc.on mouseUpif card field captions is empty thenanswer "Sorry, but I can't find a message to reply to!"elseset the cursor to watchlock screenput getFromAddress() into newToput "RE:"&(char 10 to (the number of chars in line 5 of cd fld body) of line 5 of cd fld body) ﾂｬinto newSubjectgo card composeCardput newTo into cd fld sendToFldput newSubject into cd fld subjectFldput empty into cd fld messageFldunlock screenclick at 100,80end ifend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>66</left>
<top>247</top>
<right>135</right>
<bottom>260</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Forward To窶ｦ</name>
<script>-- FX窶｢Mailer - Forward To Button Script-- Last Modified: 8/12/95 by MMM-- A freeware script provided by the Ruskin Group, Inc.on mouseUpif cd field captions is empty thenanswer "Sorry, but I can't find anything to forward!"elseset the cursor to watchlock screenput "FWD:"&(char 10 to (the number of chars in line 5 of cd fld body) of line 5 of cd fld body) ﾂｬinto newSubjectput "----- Forwarded Message -----"&return into newBodyput card field body after newBodygo card composeCardput empty into cd fld sendToFldput newSubject into cd fld subjectFldput newBody into cd fld messageFldunlock screenclick at the loc of cd fld sendToFldend ifend mouseUp</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>53</left>
<top>89</top>
<right>236</right>
<bottom>104</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>subjectLBL</name>
<script></script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>356</left>
<top>247</top>
<right>410</right>
<bottom>260</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Read Next</name>
<script>-- FX窶｢Mailer - Read Next Button Script-- Last Modified: 8/12/95 by MMM-- A freeware script provided by the Ruskin Group, Inc.on mouseUpset cursor to watchnextMessage -- see card script for this handlerend mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>297</left>
<top>247</top>
<right>353</right>
<bottom>260</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Read Prev</name>
<script>-- FX窶｢Mailer - Read Prev Button Script-- Last Modified: 8/12/95 by MMM-- A freeware script provided by the Ruskin Group, Inc.on mouseUpset cursor to watchprevMessage -- see card script for this handlerend mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>319</left>
<top>89</top>
<right>410</right>
<bottom>102</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Update Captions</name>
<script>-- FX窶｢Mailer - Update Captions Button Script-- Last Modified: 8/12/95 by MMM-- A freeware script provided by the Ruskin Group, Inc.on mouseUp-- Hand off a full "Update Cations" request to an AppleScript-- handler that will examine the FX窶｢Inbox for message files-- to be imported into the "rawMessages" background of this stack.set the cursor to busysend "loadMessages" to cd button asLoadMessagesend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>195</left>
<top>2</top>
<right>266</right>
<bottom>17</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>asDeleteFile</name>
<script></script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>269</left>
<top>2</top>
<right>347</right>
<bottom>17</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>asUnpackMail</name>
<script></script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>6</left>
<top>247</top>
<right>62</right>
<bottom>260</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Compose窶ｦ</name>
<script>-- FX窶｢Mailer - Compose Button Script-- Last Modified: 8/12/95 by MMM-- A freeware script provided by the Ruskin Group, Inc.on mouseUplock screengo card composeCardput empty into cd fld sendToFldput empty into cd fld subjectFldput empty into cd fld messageFldunlock screenclick at the loc of cd fld sendToFldend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>239</left>
<top>88</top>
<right>313</right>
<bottom>102</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Auto Update</name>
<script></script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>351</left>
<top>2</top>
<right>415</right>
<bottom>17</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>asGetAddr</name>
<script></script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>2</left>
<top>2</top>
<right>28</right>
<bottom>18</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Show AppleScript Buttons</name>
<script>on mouseUpif the optionkey is down thenif the visible of cd button asDeleteFile is true thenset the visible of cd button asLoadMessages to falseset the visible of cd button asDeleteFile to falseset the visible of cd button asUnpackMail to falseset the visible of cd button asGetAddr to falseelseset the visible of cd button asLoadMessages to trueset the visible of cd button asDeleteFile to trueset the visible of cd button asUnpackMail to trueset the visible of cd button asGetAddr to trueend ifend ifend mouseUp</script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>102</left>
<top>2</top>
<right>192</right>
<bottom>17</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>asLoadMessages</name>
<script></script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>393</left>
<top>1</top>
<right>412</right>
<bottom>19</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26635</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the visible of cd button coverUp to trueset the visible of cd fld readerHelp to trueend mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>2</left>
<top>0</top>
<right>416</right>
<bottom>264</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>coverUp</name>
<script>on mouseUpsend mouseUp to cd fld readerHelpend mouseUp</script>
</part>
<part>
<id>24</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>8</left>
<top>35</top>
<right>240</right>
<bottom>239</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>readerHelp</name>
<script>on mouseUpset the visible of cd button coverUp to falseset the visible of me to falseend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>24</id>
<text><span class="style2">sing the FX窶｢Reader</span><span class="style1">To read a message simply click on its 窶廚aption窶 in the list of messages.Use the buttons at the bottom of the window to act upon the message you have displayed.Click on the 窶弑pdate Captions窶 button to load any new messages that may have arrived in your FX窶｢Inbox, or turn on the 窶廣uto Update窶 option to have the mailer check on its own.</span></text>
<text>Date: 04/10/96-05:16PMFrom: Ruskin[] Ruskin.To: Ruskin[]Subject: Recompiling AppleScript Scripts in FX窶｢MailerNOTE FOR FX窶｢MAILER USERS:If you are continually being asked to "locate" the FX窶｢Engine, FX窶｢Packager or HyperCard while using the FX窶｢Mailer stack, you may need to recompile the AppleScript scripts in the FX窶｢Mailer Stack. To display the AppleScript scripts (which have been placed in buttons), hold down the "option" key and click on the "FX" label in the upper left corner of the current window. Note, both the Reader and Compose cards contain AppleScript scripts in buttons that may have to be recompiled so be sure to "option-click" on the "FX" label in both windows. Display and Save the scripts that are attached to each of the AppleScript based buttons. Once you've recompiled the scripts, AppleScript will no longer ask you to locate the engine or packager. You may re-hide the AppleScript buttons by "option-clicking" on the "FX" labels.</text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text>Recompiling AppleScript Scripts in FX窶｢Mailer</text>
</content>
<name>readerCard</name>
<script>-- FX窶｢Mailer - Reader Card Script-- Last Modified: 8/13/95 by MMM-- A freeware script provided by the Ruskin Group, Inc.-- This handler allows the stack to "poll" the FX窶｢Inbox for-- new message files. If Auto Update is on, the "Update Captions"-- functionality will be invoked every minute.on idleglobal FXtickcountif the hilite of card button "Auto Update" is true thenif the ticks > (FXtickcount+3600) thenput the ticks into FXtickcountset the cursor to busysend "loadMessages" to card button "asLoadMessages"end ifend ifend idle-- Do some sync'ing every time the user returns to this card:-- Check the Auto-Update Setting, and the FXcaptionsNeedUpdating Flagon openCardglobal FXoriginalTextArrowsglobal FXcaptionsNeedUpdatingglobal FXtickcount-- Update the FX窶｢Mailer Menuset the enabled of menuItem "Read Messages" of menu "FX窶｢Mailer" to falseset the enabled of menuItem "Compose Message" of menu "FX窶｢Mailer" to true-- Check to see if a captions update is in order...if the hilite of card button "Auto Update" is true thensend mouseUp to card button "Update Captions" -- to look for new mailput the ticks into FXtickcountend ifif FXcaptionsNeedUpdating is true thenupdateCaptionsListend if-- We like textArrows on for the reader, but save the old value-- to restore on close card...put the textArrows into FXoriginalTextArrowsset the textArrows to trueend openCardon closeCardglobal FXoriginalTextArrows-- Restore the value of textArrows to what it was before openCardset the textArrows to FXoriginalTextArrowsend closeCard-- The following handler is used to determine what will be put into the "From" field-- of messages you send to other users. This will allow them to use the "Reply" button-- to correctly set your address in their "Send To" field.on setUserName theATName, theIPNameglobal FXuserATName, FXuserIPNameif (theATName is empty) and (theIPName is empty) thenask "What shall I use as your FX Address?"put it into theATNameif it is empty then put getDriveName()&"[*]" into theATNameanswer "FX窶｢Mailer will use 窶"&theATName&"窶 as your address."end ifif theIPName is empty thenput "<No TCP/IP Address Available>" into theIPNameend ifif theATName is empty thenput "<No AppleTalk Address Available>" into theATNameend ifput theATName into FXuserATNameput theIPName into FXuserIPNamesend "mouseUp" to cd button "Update Captions"end setUserName-- Handler scans the "rawMessages" background rebuilding a "caption"-- entry for each message found. Captions are then placed in the-- fld captions of this card. Clicking on a caption will then cause-- the message found in the rawMessages background with the same-- caption as the one clicked on to be displayed in the body field-- of this card. Unlike the script for the "Update Captions" button,-- this handler only builds captions for messages that have already-- been imported into the stacks "rawMessages" background. See the-- script in the "Update Captions" button to see how messages are-- moved from the FX窶｢Inbox to the "rawMessages" background.on updateCaptionsListglobal FXcaptionsNeedUpdatingput false into FXcaptionsNeedUpdating -- unset 'dirty' flag for captionslock screenlock messageslock recentset the cursor to busygo to first card of background rawMessagesput empty into tempCaptionsrepeat (the number of cards in this background) timesset the cursor to busyif (word 2 of the name of this card is not quote&"templateCard""e) thenput (bg fld rawCaption)&return after tempCaptionsend ifgo nextend repeatgo to card "readerCard"put tempCaptions into cd fld captionsif cd fld captions is not empty thengetMessageend ifend updateCaptionsList-- Called by the AppleScript of button asLoadMessages once for every-- file it finds in the FX窶｢Inbox mailbox.on considerFile fileNameset the cursor to busyif ("Incoming" is not in fileName) thenif fileName contains ".fxp" thensend "unpackMail ""e&filename"e to cd button asUnpackMailput char 1 to (length of filename - 4) of fileName into fileNameloadmail fileNameelseloadmail fileNameend ifsend "deleteFile ""e&fileName"e to cd button asDeleteFileend ifend considerFile-- This handler loads a file from the FX窶｢Inbox and puts it into-- the canonical format of the rawMessages Backgrounson loadmail fileNamelock screenlock messagesset the cursor to busypush cardgo to last card of background rawMessagesdomenu "New Card"open file fileName-- put result into tempResult-- if tempResult is not empty then-- answer "Error opening 窶"&fileName&"窶 = "&tempResult-- exit to hypercard-- end ifread from file fileName until eofput it into field rawBodyclose file fileName-- Load in date time stamp窶ｦput "窶｢"&char 10 to (the number of chars in line 2 of field rawBody) in line 2 of field rawBody into field rawCaptionput " " after field rawCaption-- Load in subject窶ｦput char 10 to 35 in line 6 of field rawBody after field rawCaptionrepeat with i = (length of field rawCaption) to 45put " " after field rawCaptionend repeatif char 45 of line 6 of field rawBody is not empty then put "窶ｦ" into char 45 of field rawCaption-- Load in From address窶ｦput char 10 to 27 in line 3 of field rawBody into tempFromif tempFrom is "<No AppleTalk Addr" thenput char 10 to 27 in line 4 of field rawBody into tempFromend ifif tempFrom is "<No TCP/IP Address" thenput "<Unkown Sender>" into tempFromend ifput tempFrom after field rawCaptionrepeat with i = (length of field rawCaption) to 65put " " after field rawCaptionend repeatput line 1 of field rawBody after field rawCaptiondelete line 1 of field rawBodypop cardend loadmail-- This handler deletes the message associated with the currently-- selected caption from the "rawMessages" background.on deleteMessagelock screenlock messagespush cardput currentCaptionNumber() into tempIndexput value (selectedLine of cd fld captions) into searchStringput false into reallyDeletefind whole searchString in bg fld rawCaptionif the result is not empty thenanswer "Can't find a message for that caption, sorry."put "窶｢ Lost Message for Delete 窶｢" into tempFldelsedoMenu "Delete Card"put true into reallyDelete -- No so friendly just yet are we...end ifpop cardif reallyDelete is true thendelete line tempIndex of cd fld captionsif number of lines of cd fld captions < tempIndex thensubtract 1 from tempIndexend ifshowMessage tempIndex -- show a new message (the old one is GONE!)end ifend deleteMessage-- This function returns the line number of the currently selected captionfunction currentCaptionNumberreturn word 2 of (selectedLine of cd fld captions)end currentCaptionNumberon nextMessageshowMessage (currentCaptionNumber()+1)end nextMessageon prevMessageshowMessage (currentCaptionNumber()-1)end prevMessageon lastMessageshowMessage (the number of lines of cd fld captions)end lastMessageon firstMessageshowMessage 1end firstMessageon showMessage captionNumberput (the number of lines of cd fld captions) into numOfCaptions-- First 'Pin' unreasonable numbers窶ｦif (captionNumber < 1) then put 1 into captionNumberif (captionNumber > numOfCaptions) then put numOfCaptions into captionNumberif cd fld captions is not empty thenselect line captionNumber of cd fld captionsgetMessageelseput empty into cd fld bodyput empty into cd fld subjectLBLend ifend showMessage-- This handler finds the message associated with the selected caption-- in the captions field and copies it to the body fld of this cardon getMessagelock screenlock messagespush cardput value (selectedLine of cd fld captions) into searchStringfind whole searchString in bg fld rawCaptionif the result is not empty thenanswer "Can't find a message for that caption, sorry."put "窶｢ Lost Message for Read 窶｢" into tempFldelseput bg fld rawBody into tempFldput " " into char 1 of fld rawCaptionend ifpop cardput " " into char 1 of line currentCaptionNumber() of cd field captionsput tempFld into cd fld bodyput char 10 to (the number of chars in line 5 of cd field body) of line 5 of cd field body ﾂｬinto cd fld subjectlblend getMessage-- This function examines the currently displayed message and attempts to determine which-- from address to use for the reply. If it cannot decide, it asks the user to chose and addr.function getFromAddressput char 10 to (the number of chars in line 2 of cd fld body ) of line 2 of cd fld body ﾂｬinto atAddressput char 10 to (the number of chars in line 3 of cd fld body ) of line 3 of cd fld body ﾂｬinto ipAddressif (atAddress = "<No AppleTalk Address Available>") thenif (ipAddress = "<No TCP/IP Address Available>") thenask "What address should your reply be sent to?"if the result = "Cancel" then exit to hypercardreturn itend ifreturn ipAddressend ifif (ipAddress = "<No TCP/IP Address Available>") then return atAddressanswer "Should your reply be addressed to the TCP/IP destination 窶"&ipAddressﾂｬ&"窶, or the AppleTalk destination 窶"&atAddress&"窶?" with Cancel, "TCP/IP", "AppleTalk"if it is "Cancel" then exit to hyperCardif it is "TCP/IP" then return ipAddress else return atAddressend getFromAddress-- This hanlder attempts to keep people from typing into the message-- field which we have left unlocked to facilitate copying text.on keyDown theKeyif the commandkey is not down andﾂｬthe visible of message is false and ﾂｬtheKey is in "cu" thenhandleShortCutKey theKeyelsepass keyDownend ifend keyDown-- Allow folks to jump to the composeCard by typing "c" or to-- update the captions by pressing "u"on handleShortCutKey theKeyif theKey is "c" then send mouseUp to cd button "Compose窶ｦ"if theKey is "u" then send mouseUp to cd button "Update Captions"end handleShortCutKey-- Translate the arrow keys into commands to traverse the captions liston arrowKey theKeyif theKey is "up" or theKey is "left" thenif the commandkey is down thenfirstMessageelseprevMessageend ifend ifif theKey is "down" or theKey is "right" thenif the commandkey is down thenlastMessageelsenextMessageend ifend ifend arrowKey</script>
